home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byte0287.arc / LISTING1 < prev    next >
Text File  |  1980-01-01  |  224b  |  9 lines
  1. 10 OPEN "O",#1,"DATA" :REM Make a test data file by taking
  2. 20 PRINT#1,50    :REM 51 samples from a Gaussian curve
  3. 30 D=.2     :REM centered at i=25.
  4. 40 FOR I=0 TO 50
  5. 50 A=10*EXP(-(5-D*I)^2)
  6. 60 PRINT#1,A
  7. 70 NEXT I
  8. 80 CLOSE
  9.